home *** CD-ROM | disk | FTP | other *** search
/ Info-Mac 4 / Info_Mac IV CD-ROM (Pacific HiTech Inc.)(August 1994).iso / Science / RLaB / rlib / union.r < prev    next >
Encoding:
Text File  |  1994-04-25  |  576 b   |  25 lines  |  [TEXT/EDIT]
  1. //-------------------------------------------------------------------//
  2. //  union
  3.  
  4. //  Syntax:    union ( A , B )
  5.  
  6. //  Description:
  7.  
  8. //  The union function returns a vector set that is the union of the
  9. //  two sets A, and B.
  10.  
  11. //  See Also: complement, intersection, set
  12. //-------------------------------------------------------------------//
  13.  
  14. union = function ( A, B )
  15. {
  16.   if (min (size (A)) != 1) {
  17.     error ("union: 1st argument must be a vector");
  18.   }
  19.   if (min (size (B)) != 1) {
  20.     error ("union: 2nd argument must be a vector");
  21.   }
  22.  
  23.   return set ( [ A[:] ; B[:] ] ) 
  24. };
  25.